home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / amos / AMOSList-0998.lzh / AMOSLIST / 000106_bounce-amos-li…net@onelist.com_Sat Sep 5 11:35:22 1998.msg < prev    next >
Text File  |  1998-10-01  |  5KB  |  123 lines
  1. >From bounce-amos-list--966-mcox=access.digex.net@onelist.com  Sat Sep  5 11:35:22 1998
  2. Received: from onelist.com (pop.onelist.com [209.207.135.253])
  3.     by pony-2.mail.digex.net (8.8.8/8.8.8) with SMTP id LAA06923
  4.     for <mcox@access.digex.net>; Sat, 5 Sep 1998 11:35:21 -0400 (EDT)
  5. Received: (qmail 16921 invoked by alias); 5 Sep 1998 15:33:01 -0000
  6. Received: (qmail 16886 invoked from network); 5 Sep 1998 15:32:58 -0000
  7. Received: from unknown (HELO rhenium.btinternet.com) (194.73.73.93) by pop.onelist.com with SMTP; 5 Sep 1998 15:32:58 -0000
  8. Received: from np5gt [195.99.57.220]  by rhenium.btinternet.com with smtp (Exim 1.70 #1) id 0zFKKr-0004fe-00; Sat, 5 Sep 1998 16:33:09 +0100
  9. Message-ID: <002b01bdd8e2$ae10ff80$dc3963c3@np5gt>
  10. From: "John Glanville" <John.Glanville@btinternet.com>
  11. To: <amos-list@onelist.com>
  12. Date: Sat, 5 Sep 1998 16:33:04 +0100
  13. X-Priority: 3
  14. X-MSMail-Priority: Normal
  15. X-Mailer: Microsoft Outlook Express 4.72.3110.1
  16. X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
  17. Mailing-List: list amos-list@onelist.com; contact http://www.onelist.com
  18. Delivered-To: mailing list amos-list@onelist.com
  19. Precedence: bulk
  20. Reply-to: amos-list@onelist.com
  21. Mime-Version: 1.0
  22. Content-Type: text/plain; charset="iso-8859-1"
  23. Content-Transfer-Encoding: 7bit
  24. Subject: [amos-list] Re: REPOSTING OF JOYSTICK CODE...
  25. Status: O
  26. X-Status: 
  27.  
  28. From: "John Glanville" <John.Glanville@btinternet.com>
  29.  
  30.  
  31. -----Original Message-----
  32. From: Garfield Benjamin <gbenjam@sosbbs.com>
  33. To: amos-list@onelist.com <amos-list@onelist.com>
  34. Date: 05 September 1998 15:25
  35. Subject: [amos-list] REPOSTING OF JOYSTICK CODE...
  36.  
  37.  
  38. >From: "Garfield Benjamin" <gbenjam@sosbbs.com>
  39. >
  40. >ORIGINALLY SENT WEDNESDAY, NOW I AM RESENDING...
  41. >----------
  42. >
  43. >>>> Hey! Look! At this Ne1 want a piece of joystick code...
  44. >>>Timer=0
  45. >>>For A=0 To 100000
  46. >>>   J=Joy(1) : K=J-2 : P#=J/4.0 : P=P# : I=Sgn(J)
  47. >>>   If P#=P Then X=Sgn(J-6)*I
  48. >>>   If P=0 Then Y=I*(K+K+1)
  49. >>>Next
  50. >>>Print Timer
  51. >
  52. >>> Hmm this seemed a bit too complicated, so I decided to check it out
  53. >>>(and I managed to kill 5mins at the same time ;)
  54. >>>Timer=0
  55. >>>For A=0 To 100000
  56. >>>   X=0 : Y=0
  57. >>>   If Jup(1) Then Y=-1
  58. >>>   If Jdown(1) Then Y=1
  59. >>>   If Jleft(1) Then X=-1
  60. >>>   If Jright(1) Then X=1
  61. >>>Next
  62. >>>Print Timer
  63. >
  64. >Well, I live for writing compact, optimized code...
  65. >THE OPTIMIZED WAY:
  66. >Timer=0
  67. >For REP=0 To 100000
  68. >   X=Jleft(1)-Jright(1)
  69. >   Y=Jup(1)-Jdown(1)
  70. >Next REP
  71. >Print Timer
  72. >
  73. >Compiled with AMOS PRO Compiler and tested on a 14MHz NTSC
  74. >Amiga...
  75. >
  76. >NO JOYSTICK MOVEMENT
  77. >  First version: 779
  78. >  Second version: 502
  79. >  My version: 471
  80. >
  81. >HOLDING DOWN ON JOYSTICK
  82. >  First Version: 933
  83. >  Second version: 511
  84. >  My version: 476
  85. >
  86. >Obviously, if tested on an accelerated Amiga the performance will be
  87. >greatly increased (ie. smaller times) and it is much shorter as well.
  88. >
  89. >
  90. >                Garfield Benjamin    e-mail:gbenjam@sosbbs.com
  91. >                     Website( http://www.sosbbs.com/~gbenjam
  92. >
  93. >------------------------------------------------------------------------
  94. >To unsubscribe from this mailing list, or to change your subscription
  95. >to digest, go to the ONElist web site, at http://www.onelist.com and
  96. >select the User Center link from the menu bar on the left.
  97. >
  98.  
  99. Hey!!! I WAS BORED OKAY!!!! I didn't think ne1 would be strange enough 2
  100. even reply... Let alone do a speed test on it!!! Now I have had 2 replys
  101. this is getting crazy! Ne way... I had no Idea that those amos commands
  102. existed! true I had ceen them before but i just never though about it!...
  103. basically You can do the same thing as U have done 2 keystate commands..
  104. which is what i do! So if I had known about those commands I would never
  105. have bothered 2 write the code! So why is everyone so strange???????
  106. Ne way! Have fun! and I'll be Round so if u want ne code lengthened or made
  107. more complicated! I'm right here! BYE!
  108. oh by the way... if u want it 2 go faster use variables instead of the 1's
  109. it most probably wont make a difference for a single digit.. but it takes
  110. longer 2 read in any numbers and work out there values that it does 2 read a
  111. variable.. thats why it is faster 2 open a screen if u write
  112. Screen open 0,640,256,16,Hires
  113. instead of....
  114. Screen open 0,640,256,16,32768
  115. as Hires is an internal variable!
  116.  
  117. BYE!
  118.  
  119.  
  120. ------------------------------------------------------------------------
  121. Help support ONElist, while generating interest in your product or
  122. service. ONElist has a variety of advertising packages. Visit
  123. http://www.onelist.com/advert.html for more information.